home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 0189.ZIP / LOAN.PAS < prev    next >
Pascal/Delphi Source File  |  1986-02-08  |  1KB  |  48 lines
  1. program Loan_Amortization;
  2.  
  3. { General purpose global constants, types vars and subprograms. }
  4.  
  5. {$I LOAN1.INC}
  6.  
  7.  
  8. {Global constants, types vars and subprograms specific to
  9.  the Loan_Amortization program. }
  10.  
  11. {$I LOAN2.INC}
  12.  
  13.  
  14. {Loan amortization output routines. }
  15.  
  16. {$I LOAN3.INC}
  17.  
  18.  
  19. {Help and housekeeping routines. }
  20.  
  21. {$I LOAN4.INC}
  22.  
  23. begin { Loan_Amortization. }
  24.   Initialize;                          { Do initial housekeeping.}
  25.   while (not (err_flag or end_session)) do
  26.     begin
  27.       Select_Loan_File;
  28.       if esc_flag then
  29.         Verify_Exit;
  30.       while (not (esc_flag or err_flag)) do
  31.         begin
  32.           Display_Current_Values;
  33.           Select_Action;
  34.           case action of
  35.             ACCEPT  : Accept_Data;
  36.             MODIFY  : Modify_Data(1,END_INP);
  37.             PRINT   : begin
  38.                         Accept_Data;
  39.                         Print_Amortization;
  40.                       end;
  41.             QUIT    : Exit_Housekeeping;
  42.             HELP    : Display_Help;
  43.           end; {case}
  44.         end; {while}
  45.     end; {while}
  46.   ClrScr; Write('Session Ended');
  47. end. { Loan_Amortization }
  48.